home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / gtddrssn.hqx / GetAddressingMode XFCN 1.0 / card_2839.txt < prev    next >
Encoding:
Text File  |  1992-06-12  |  3.1 KB  |  109 lines
  1. -- card: 2839 from stack: in.0
  2. -- bmap block id: 4303
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=1 top=86 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=2 top=54 right=76 bottom=145
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetAddressingMode
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put getaddressingmode() into admode
  37.   answer admode
  38.   if item 1 of admode then put "The machine started up with 32-bit addressing." into question
  39.   else put "The machine did not start up with 32-bit addressing." into question
  40.   if item 2 of admode then put " The machine has 32-bit compatible system zone." after question
  41.   else put " The machine doesn't have 32-bit compatible system zone." after question
  42.   if item 3 of admode then put " The machine is 32-bit capable." after question
  43.   else put " The machine is not 32-bit capable." after question
  44.   answer question
  45. end mouseUp
  46.  
  47.  
  48. -- part 16 (button)
  49. -- low flags: 00
  50. -- high flags: 2000
  51. -- rect: left=473 top=51 right=84 bottom=511
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 15664 / 15664
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Home
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   visual dissolve to black
  63.   visual dissolve to white
  64.   visual dissolve to black
  65.   visual dissolve
  66.   go home
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 17 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=475 top=22 right=50 bottom=512
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 13510 / 13510
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Jeff
  83. ----- HyperTalk script -----
  84. on mouseEnter
  85.   set hilite of target to true
  86. end mouseEnter
  87.  
  88. on mouseLeave
  89.   set hilite of target to false
  90. end mouseLeave
  91.  
  92.  
  93.  
  94. -- part contents for card part 9
  95. ----- text -----
  96. GetAddressingMode takes no parameters. It returns three items, in a comma-delimited list. Item 1 is true if the machine started up with 32-bit addressing. Item 2 is true if the machine has 32-bit compatible system zone. Item 3 is true if the machine is 32-bit capable. Click on and/or examine the script of the button above to see how it works!
  97.  
  98. A small shareware fee of $5 is requested if you use this XFCN for anything besides personal use.
  99.  
  100. If you have comments, questions, or suggestions, you can contact me in any of the following ways:
  101.  
  102.      America Online: J5rson                  AppleLink: ALL.AMERICAN
  103.      CompuServe:     76675,1772              GEnie:     J5rson
  104.      Internet:       j5rson@aol.com          Telephone: 616.949.0346
  105.  
  106.      U. S. Mail:           Jeff Iverson
  107.                            3841 Whispering Way Dr. SE #101
  108.                            Grand Rapids MI  49546-5849
  109.